Personal Computer World 2006 May/PCWMAY06.iso/Software/Trial/ConceptDraw NetDiagrammer/data1.cab/Samples__Basic/Solutions/OrgChart/consts.cdb

Text File | 2006-02-08 | 4KB | 62 lines

'Символ, служащий разделителем между полями базы данных
Const constrCharSeparator As String = ";"
'Расширение XML-файлов, содержащих данные о сотрудниках компании
Const constrXMLFileExt As String = "ccx"
Const sconstReadOnlyWarning As String = "This file is Read-Only. Continue?"

'Номер поля в текстовом файле базы данных, в котором находятся данные:

'Номер столбца, в котором находится ID сотрудника
Const conintIDPos As Integer  = 1
'Номер столбца, в котором находится ФИО сотрудника
Const conintNamePos As Integer   = 2
'Номер столбца, в котором находится ID непосредственного начальника сотрудника
Const conintChiefIDPos As Integer   = 3
'Номер столбца, в котором находится должность сотрудника
Const conintPostPos As Integer   = 4
'Номер столбца, в котором находится адрес электронной почты сотрудника
Const conintEMailPos As Integer   = 5

'Количество столбцов, использующихся в базе данных.
Const conintFieldsCount As Integer = 5

'Константы, использующиеся для определения направления в массиве aiDirection:
'Этот уровень, а также все уровни выше этого, представлены только одним ресурсом каждый.
Const conbytAlone As Integer = 0
'Объекты этого уровня в документе будут расположены вертикально
Const conbytVertical As Integer = 1
'Объекты этого уровня в документе будут расположены горизонтально
Const conbytHorizontal As Integer = 2

'Для схемы, строящейся на нескольких страницах, задает размер ветви, которую еще можно рисовать на единственной странице.
Const condblMaxX As Double = 2100
Const condblMaxY As Double = 2700
Const condblMaxSquare As Double = 2500000

'Задают минимальное расстояние между центрами объектов в документе ConceptDraw по шаирине и по высоте
Const condblOneStepX As Double = 600
Const condblOneStepY As Double = 300

'Ширина и высота объектов, содержащих данные сотрудников.
Const condblGroupWidth As Double = 500
Const condblGroupHeight As Double = 250

'Имена тэгов, использующиеся в XML-документе
'Имя тэга, маркирующего начало и конец описания всех данных одного сотрудника
Const constrPersonTag As String = "person"
'Имя тэга, описывающего имя сотрудника
Const constrNameTag As String = "name"
'Имя тэга, описывающего должность сотрудника
Const constrPostTag As String = "title"
'Имя тэга, описывающего email адрес сотрудника
Const constrEMailTag As String = "email"
'Имя тэга, описывающего название компании
Const constrCompanyNameTag As String = "companyname"
'Имя тэга, маркирующего начало и конец описания данных подчиненных сотрудника
Const constrSubordinatesTag As String = "reports"
'Имя тэга, маркирующего начало и конец описания структуры компании
Const constrOrgChartTag As String = "orgchart"

'Количество символов, зачитывающихся из XML-файла за одну операцию чтения.
Const conintInputSymbCount As Integer = 1000